g1<-ggplot(Wage,aes(x=age,y=wage,color=race,fill=race))+ geom_point()+ geom_smooth(method = "lm",se=FALSE)+ facet_wrap(~education)+ theme_classic() ggplotly(g1)
## `geom_smooth()` using formula 'y ~ x'